use strict;
use utf8;

my $fn = $ARGV[0];
my %bl;
open(F, "< $fn") || die "can't open $fn";
binmode(F, ":encoding(utf-8)");
while (<F>) {
  chomp $_;
  $bl{$_} += 1;
}
close(F);

binmode(STDIN, ":encoding(utf-8)");
binmode(STDOUT, ":encoding(utf-8)");

while (<STDIN>) {
  my ($w, @other) = split(/\s+/, $_);
  if (!exists $bl{$w}) {
    print $_;
  }
}
